﻿Imports Microsoft.VisualBasic.CompilerServices
Imports Stickam_Client.My
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms

Namespace Stickam_Client
    <DesignerGenerated> _
    Public Class Form_Login
        Inherits Form
        ' Methods
        <DebuggerNonUserCode> _
        Public Sub New()
            AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form2_Load)
            Me.InitializeComponent
        End Sub

        <DebuggerNonUserCode> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try 
                If (disposing AndAlso (Not Me.components Is Nothing)) Then
                    Me.components.Dispose
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub

        Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs)
            Me.LoginEmail.Text = MySettingsProperty.Settings.LoginEmail
            Me.LoginPass.Text = MySettingsProperty.Settings.LoginPass
            Me.LoginRemember.Checked = MySettingsProperty.Settings.LoginRemember
        End Sub

        <DebuggerStepThrough> _
        Private Sub InitializeComponent()
            Dim manager As New ComponentResourceManager(GetType(Form_Login))
            Me.Label1 = New Label
            Me.LoginEmail = New TextBox
            Me.Label2 = New Label
            Me.LoginPass = New MaskedTextBox
            Me.Login = New Button
            Me.LoginRemember = New CheckBox
            Me.StatusStrip1 = New StatusStrip
            Me.ToolStripStatusLabel1 = New ToolStripStatusLabel
            Me.StatusStrip1.SuspendLayout
            Me.SuspendLayout
            Me.Label1.AutoSize = True
            Dim point As New Point(0, 4)
            Me.Label1.Location = point
            Me.Label1.Name = "Label1"
            Dim size As New Size(&H27, 13)
            Me.Label1.Size = size
            Me.Label1.TabIndex = 0
            Me.Label1.Text = "E-Mail:"
            point = New Point(&H24, 1)
            Me.LoginEmail.Location = point
            Me.LoginEmail.Name = "LoginEmail"
            size = New Size(&H9D, 20)
            Me.LoginEmail.Size = size
            Me.LoginEmail.TabIndex = 1
            Me.Label2.AutoSize = True
            point = New Point(0, &H1B)
            Me.Label2.Location = point
            Me.Label2.Name = "Label2"
            size = New Size(&H21, 13)
            Me.Label2.Size = size
            Me.Label2.TabIndex = 2
            Me.Label2.Text = "Pass:"
            point = New Point(&H24, &H16)
            Me.LoginPass.Location = point
            Me.LoginPass.Name = "LoginPass"
            Me.LoginPass.PasswordChar = "*"c
            size = New Size(&H9D, 20)
            Me.LoginPass.Size = size
            Me.LoginPass.TabIndex = 3
            Me.Login.FlatStyle = FlatStyle.Popup
            Me.Login.Font = New Font("Microsoft Sans Serif", 6.75!, FontStyle.Regular, GraphicsUnit.Point, 0)
            point = New Point(&H71, &H2B)
            Me.Login.Location = point
            Me.Login.Name = "Login"
            size = New Size(80, &H12)
            Me.Login.Size = size
            Me.Login.TabIndex = 4
            Me.Login.Text = "LOGIN"
            Me.Login.UseCompatibleTextRendering = True
            Me.Login.UseVisualStyleBackColor = True
            Me.LoginRemember.AutoSize = True
            Me.LoginRemember.Checked = True
            Me.LoginRemember.CheckState = CheckState.Checked
            point = New Point(5, &H2C)
            Me.LoginRemember.Location = point
            Me.LoginRemember.Name = "LoginRemember"
            size = New Size(&H67, &H11)
            Me.LoginRemember.Size = size
            Me.LoginRemember.TabIndex = 5
            Me.LoginRemember.Text = "Remember Pass"
            Me.LoginRemember.UseVisualStyleBackColor = True
            Me.StatusStrip1.Items.AddRange(New ToolStripItem() { Me.ToolStripStatusLabel1 })
            point = New Point(0, &H3E)
            Me.StatusStrip1.Location = point
            Me.StatusStrip1.Name = "StatusStrip1"
            size = New Size(&HC2, &H16)
            Me.StatusStrip1.Size = size
            Me.StatusStrip1.TabIndex = 6
            Me.StatusStrip1.Text = "StatusStrip1"
            Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
            size = New Size(160, &H11)
            Me.ToolStripStatusLabel1.Size = size
            Me.ToolStripStatusLabel1.Text = "Note: Account must be verified."
            Dim ef As New SizeF(6!, 13!)
            Me.AutoScaleDimensions = ef
            Me.AutoScaleMode = AutoScaleMode.Font
            size = New Size(&HC2, &H54)
            Me.ClientSize = size
            Me.Controls.Add(Me.StatusStrip1)
            Me.Controls.Add(Me.LoginRemember)
            Me.Controls.Add(Me.Login)
            Me.Controls.Add(Me.LoginPass)
            Me.Controls.Add(Me.Label2)
            Me.Controls.Add(Me.LoginEmail)
            Me.Controls.Add(Me.Label1)
            Me.FormBorderStyle = FormBorderStyle.FixedDialog
            Me.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
            Me.MaximizeBox = False
            Me.Name = "Form_Login"
            Me.StartPosition = FormStartPosition.Manual
            Me.Text = "Stickam Login"
            Me.StatusStrip1.ResumeLayout(False)
            Me.StatusStrip1.PerformLayout
            Me.ResumeLayout(False)
            Me.PerformLayout
        End Sub

        Private Sub Login_Click(ByVal sender As Object, ByVal e As EventArgs)
            MySettingsProperty.Settings.LoginEmail = Me.LoginEmail.Text
            MySettingsProperty.Settings.LoginRemember = Me.LoginRemember.Checked
            If Me.LoginRemember.Checked Then
                MySettingsProperty.Settings.LoginPass = Me.LoginPass.Text
            Else
                MySettingsProperty.Settings.LoginPass = ""
            End If
            Me.FormParent.doLogin(Me.LoginEmail.Text, Me.LoginPass.Text)
            Me.Close
        End Sub


        ' Properties
        Friend Overridable Property Label1 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label2 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Login As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._Login
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Login_Click)
                If (Not Me._Login Is Nothing) Then
                    RemoveHandler Me._Login.Click, handler
                End If
                Me._Login = WithEventsValue
                If (Not Me._Login Is Nothing) Then
                    AddHandler Me._Login.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property LoginEmail As TextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._LoginEmail
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TextBox)
                Me._LoginEmail = WithEventsValue
            End Set
        End Property

        Friend Overridable Property LoginPass As MaskedTextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._LoginPass
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As MaskedTextBox)
                Me._LoginPass = WithEventsValue
            End Set
        End Property

        Friend Overridable Property LoginRemember As CheckBox
            <DebuggerNonUserCode> _
            Get
                Return Me._LoginRemember
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As CheckBox)
                Me._LoginRemember = WithEventsValue
            End Set
        End Property

        Friend Overridable Property StatusStrip1 As StatusStrip
            <DebuggerNonUserCode> _
            Get
                Return Me._StatusStrip1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As StatusStrip)
                Me._StatusStrip1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property ToolStripStatusLabel1 As ToolStripStatusLabel
            <DebuggerNonUserCode> _
            Get
                Return Me._ToolStripStatusLabel1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As ToolStripStatusLabel)
                Me._ToolStripStatusLabel1 = WithEventsValue
            End Set
        End Property


        ' Fields
        <AccessedThroughProperty("Label1")> _
        Private _Label1 As Label
        <AccessedThroughProperty("Label2")> _
        Private _Label2 As Label
        <AccessedThroughProperty("Login")> _
        Private _Login As Button
        <AccessedThroughProperty("LoginEmail")> _
        Private _LoginEmail As TextBox
        <AccessedThroughProperty("LoginPass")> _
        Private _LoginPass As MaskedTextBox
        <AccessedThroughProperty("LoginRemember")> _
        Private _LoginRemember As CheckBox
        <AccessedThroughProperty("StatusStrip1")> _
        Private _StatusStrip1 As StatusStrip
        <AccessedThroughProperty("ToolStripStatusLabel1")> _
        Private _ToolStripStatusLabel1 As ToolStripStatusLabel
        Private components As IContainer
        Public FormParent As Form1
    End Class
End Namespace

